EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 


**FILE**1D**LIBSIMTRA 


«q<q<a4aeeeqaeaaaca 
qaaqaqadadaecaacacae 

=3 33 

<<a < 

<< == 

<< << 
aq<q<4<4<aeeeaaaca 
qdqaqaaqaqecaadaacac 
cance cc a 
cacaca cm 

ca ca ca 

ca <a cae 

ca ecacae 

ca cacae 

ca ca 

ca <a 

@encaeaaaacaacaacaa 

@eeaeacacacacaca 

—-F.- 

mee 

te bee 

ce 


Be he ee 
ee coal el eal el ceed tel ae eee elo 


LLLLLLLLLL 
LLLLLLLLLL 


LLLLLLLLLL 
LLLLLLLLLL 


K 16 
- Simulate floating trap 16-SEP-1984 00:18:50 VAX/VMS Macro v04-00 Page 0 


- Convert Floating Faults to Traps 


L 16 
IBSSIM_TRAP - Simulate floating tra -SEP=1984 90:18:50 YVAX/VMS Macro V04-00 P 1 
eth Pedi e* Hiaet ii: +18: 29 LIBRTL.SRCILIB SIMTRA.MAR; 1 age a) 


«TITLE uss $514. TRAP = Simulate loge ing tra 
- IDENT File: LIBSIMTRA.MAR Edit: SBL1003 


SRAAAAAEAEAAAAAEAAAAA AERA AAAAAAAARAAAAAAAAAAAAAAAAARERAAAATARAAAAAAAAAAATAEAEEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THI 


« 
* 
* 
” 
e 
0 w 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ON OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE T * 
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 
TRANSFERRED. * 
* 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. o 
® 

% 

« 

® 

© 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


eaeeneneeeeaeeeee eee eanannen 


RARER AAAAAAAAAEAAAAAAAAAARAAAAAAATAAARAAAAAAAAAAAAAAAAAAEAE 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


-+¢ 
; FACILITY: General Utility Library 


; ABSTRAZI: 
L teeta, TRAP is a routine which converts floating faults 


: float 7 traps. It is Gee rpnae to be enabled as a 
: Sonatas andler or to be called by one. 
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| This routine functions as a condition handler which intercepts 

| floating overflow, floating underflow, and floating divide by zero 

faults. When these conditions are detected, the routine simulates the 

instruction causing the condition up to the point where a trap should 
be signaled and signals the corresponding floating trap. 


Introduction 


With Revision 5 of the VAX System Reference Manual, incompatible 
changes were made to the VAX architecture in regard to the exceptions 
that may occur in connection with floating arithmetic operations. 

The exceptions generated by floating underflow, Sleoe tng overflow, 

and floating divide by zero were changed from traps to faults and new 
hardware vectors were defined for the new faults. In VMS new condition 
codes were defined which correspond to the new hardware-def ined 
conditions. Since fault exceptions always leave the enviroment in such 
a state that the faulted instruction can be restarted, it is possible, 
in principle, to ‘‘convert’’ one of the new exceptions to the exception 
it corresponds to under the earlier VAX architecture. 


3 The routine LIBSSIM_TRAP has been developed to provide a generally 
3 usable facility for converting the new eupet ae faults to the earlier 
: floating traps so that existing code for handling floating exceptions 
: will still work. The routine may be used as a condition handler or it 
: may be called by a condition handler (perhaps with intermediate 

; procedure calis) to examine a signaled condition. When one of the new 
: floating faults occurs, the routine ‘shuts down’’ the current condition 
3 handling operation, performs any necessary changes to the enviroment, 
: and signals the trap condition. 


No effort has been spared to make the traps look exactly Like 
those generated by the hardware and intercepted by the operating 
system. Particular attention has been paid to the problems of ; 
dealing with floating underflow exceptions for the POLYx instructions 
which require resuming the instruction. 


Operation of the Fault to Trap Conversion 


1B$ is concerned with instructions which can cause any 
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three exceptions under the revised VAX architecture: 
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UND _F floating underflow fault 
DIV_F floating divide by zero fault 
OVF _F floating overflow fault 


When detected these faults will be converted to the following 
corresponding traps: 


SS$_FLTUND floating underflow trap 
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SSS_FLTDIV floating/decimal divide by zero trap 

SS$_FLTOVF floating overflow trap 


In the course of performing the conversion other exceptions may be 
detected and signaled instead. The possible exceptions are 


SS$_ACCVIO access violation fault 
SS$_ROPRAND reserved operand fault 


in addition to the above three traps. 


The instructions which can cause the three faults which are 
recognize are Listed below. 


ea 
x, 
ec 
eo 
sa 
ae 
@ 


ACBD add compare and branch D_floating 
ACBF add compare and branch F_floating 
ACBG add compare and branch G_floating 
ACBH add geupere and branch H_floating 
ADDD add D_floating (two operands) 

ADDD add D_floating (three operands) 
ADOF add F_floating (two operands) 

ADDF add D_floating (three operands) 
ADDG add G_floating (two operands) 

ADOG add G_floating (three operands) 
nat add H_floating (two operands) 

ADDH add H_floating (three operands) 
VIDF convert D_floating to F_floating 
CVIGF convert G_floating to F_floating 
CVTHD convert H_floating to D_floating 
CVTHF convert H_floating to F_floating 
CVTHG convert H_ floating to G_floatin 
DIVD divide D_floating (two Operands 
DIVO divide D_floating (three operands) 
DIVF divide F_floating (two operands) 
DIVF divide F_floating (three operands) 
Bives divide G_floating (two operands) 
DIVG divide G_floating (three operands) 
piv divide H_floating (two operands) 
DIVH H_ floating (three operands) 
EMODD d $ * 

G 


t 
t 
t 
t 
f 
f 
f 
f 


D modulus D_floating 
EMODF extended modulus F_floating 
EMOD extended modulus G_floating 
EMODH extended modulus H_floatin 

LD multiply D_floating (two operands) 
MULD multiply 9_floating (three operands) 
MULF multiply F_floating (two operands) 
MULF multiply F_floating (three operands) 
MULG multiply G_floating (two operands) 
MULG multiply G_floating (three operands) 
MULH multiply H floating (two operands) 
MULH multiply H_floating (three operands) 
POLYD evaluate polynomial D_floating 
POLYF evaluate polynomial F_floating 
POLYG evaluate polynomial G_floating 
POLYH evaluate polynomial H floating 
SUBD2 subtract D_floating (fwo operands) 


The conversion of faults to traps is performed as follows: First 
the instruction operands are scanned and any increments or decrements 
of the registers required by the operand specifiers is performed. 
Also, the aepreat or operand locations are determined during this 
scan. For all of the faults, a value cof zero is stored for written 
integer operands. For floating underflow, a zero value is also stored 
for each written floating operand. For floating overflow and floating 
divide by zero, a reserved floating value which is zero except for a 
sign bit of one is stored for each floating written operand. The 
condition codes are set to describe the Last result stored. Finally, 
the trap condition corresponding to the fault is signaled. 
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| SUBD subtract D_floating (three operands) 
SUBF subtract F_floating (two operands) 
| SUBF subtract F_floating (three operands) 
SUBG subtract G_floating (two operands) 
SUBG subtract G_floating (three operands) 
| SUBH subtract H_floating (two operands) 
| SUBKH subtract H_floating (three operands) 


There are some minor exceptions to the above outline. For the 
ACBx instructions, the carry bit in the condition code is preserved 
and the routine determines whether or not the branch should be taken. 
For the POLYx instructions, things are a bit more complicated. For 
a floating overflow a reserved operand is stored in the register or 
registers intended to hold the result, the condition codes are set 
to describe it, and the trap is signaled. For ytaet ine underflow, 
however, the result so far is cleared and the instruction is resumed 
and run to completion if possible. If the instruction is completed, 
then the underflow trap is signaled. However, an overflow, access 
violation, or a reserved operand fault occur (the last two 
criginating from problems with the table of coefficients). If an 
overflow occurs, the condition will be treated as if the underflow 
had never occured. If an access violation or a reserved operand fault 
occurs, then the fault will be signaled exactly as described by the 
hp thonpe i with the FPD bit set in the PSL so the instruction can 

e resumed. 


Since the routine LIBSSIM_TRAP ‘‘dissolves’’ the condition handling 
for the orie*net fault condition, the final condition signaled by the 
routine will be from the context of the instruction itself rather than 
from that of the condition handler so the signating path will be 
identical to that for a hardware generated yi t The signal array will 
be correctly placed so that the end of this table will be the user's 
stack pointer at the completion of the instruction (for traps) or 
at the beginning of the instruction (for faults). 
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Differences from the Hardware 
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Below is what is believed to be a complete List of differences 
between LIBSSIM_TRAP and the hardware that are in any way detectable 
by the user. We have not included differences which are reiated to 
whether or not the converter is being used rather than to the 
operation of the converter itself. 
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1. The simulation of the Mart ed be from the fault up to the 
pores wears the trap is signaled takes much longer than the 


2. The simulation of the instruction from the fault up to the 
point where the trap is signaled is performed by software so 
it is interruptable. Because of this an AST which becomes 
active while the simulation is yoy Be ony find the 
actions of the instruction only partially completed. 


3. When fault to trap conversion takes place, the converter 
gervenes the area below the user's stack pointer. This area 
s used to simulate a portion of the user's stack as well as 
for local storage for the converter itself. The converter 
protects itself from stores into its work tne storage in such 
away that it appears that the results of the stores were 
garbaged after the store. 


4. When the converter is active, there is an extra procedure 
frame on the stack. This might come as an unexpected suprise 
to an AST that becomes active while the converter is running. 


5. When the converter aoers faults and traps there may be some 
differences in the un 
pushed onto the stack for signaling. 


Notes on this Version of LIBSSIM_TRAP 
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ocumented aspects of the blocks that are 


The following notes apply to this version of LIBSSIM_TRAP and may 
change in subsequent versions. 


1. This version was completed in a hurry and is not fully tested. 
ALL of the mechanisms and paths have been tested but not 
enough examples have been tried to expose interaction bugs. 


2. In order to implement the converter with only a modest amount 
of effort the following assumptions were made about the 
architecture. These assumptions are not preorsy justified by 
Revision 5 of the SRM but Dileep Bhandarkar tells me that 
these points will be clarified in future version of the SRM. 
Curiously both of these points involve the POLYx instructions. 


A. It is assumed that when a POLYx instruction causes 
and underflow or overflow fault, that the instruction 
will be suspended with the FPD bit set in the PSL. 
The SRM accurately describes the suspended state but 
makes no guarantees as to when the state is ever 
reached. 


B. It is assumed that when a POLYx instruction has been 
suspended that the user has unlimited lisence to 
change the result so far, the orgunent. the number 
of remaining coefficients, and the location of the 
next coefficient, but not the implementation specific 
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information. The number of remaining coefficients can 
not be changed to a reserved value or zero. These 
assumptions imply that the implementation specific 
information does not depend on these quantities. 
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There is no version of the architecture which specifies that 
traps occur for floating aritnmetic eubep tions generated by 
the G-format and H-format instructions. Nevertheless, the 
converter performs such a conversion since it that the primary 
reason for this converter is to allow user's to continue to 
use their old exception handling routines. 


4. The converter does not check for a stack overflow while it is 
running. Because of the automatic stack expansion feature in 
Release 2 VMS this should not be a problem. If the user nails 
his own stack pointer during the simulation (the only values 
that can be stored into it are zero and 2°15), then a reserved 
Serene exception will occur when the converter tries to 
return, 


The converter interacts smoothly with the Debugger. 


6. The converter is read-only and PIC so there should be no 
difficulty in incorporating it into any program. 


In order to insure that the new floating faults are converted to 
the old traps, the routine LIBSSIM_TRAP must be used as a condition 
handler or must be called from a condition handler. If it is used as 
a condition handler it must be positioned so that is will be notified 
about conditions generated by the code in question. This will be the 
case if it is the or seerys secondary, or last chance condition 
handler. If it is installed as the condition handler for some routine, 
then that routine must be one which executes the instructions which 
will cause the condition either directly or through a chain of 
intermediate procedure calls. If the routine LIBSSIM_TRAP is to be 
called by a condition handler, then that condition handler must have 
the properties described above. Condition handlers which ‘cover’ the 
entire program may be set up using the LIBSINITIALIZE facility 
described in Appendix E of the Common RTL Reference Manual. 


When LIBSSIM_TRAP is called from a condition handler the call 
should have the following form: 


CALL LIBSSIM_TRAP (signal_args_adr,mech_args_adr) 
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However it is called, the routine examines the condition to 
determine if it is one of the faults that are converted to traps. 
If it is not then the routine returns with RO containing the condition 
code SS$_RESIGNAL. A condition handler which calls LIBSSIM_TRAP should 
be coded so that it will not leave any loose ends dangling if the call 
to LIBSSIM_TRAP does not return. 


If the routine chooses to handle the condition, all of the 
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is then ye and the resulting condition is signaled. For this 
reason the resulting condition will be signaled as a new condition and 
not as a continuation of the original fault condition. 
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000 387 ! | 
000 $8 : Definition Macro Invocations | 
999 90 $SSDEF ; System Status Codes 
it 4 SJPIDEF ; Job/Process Information Codes 
44 $8 : Parameters 
00900028 0000 it CALL_ARGS = 40 i flexible stack space (lonawords) 
4448 $7 ; Bits in the Processor Status Longword (PSL) 
00000000 0000 99 PSL_C = 0 3; carry indicator 
00000001 0000 400 PSL_V = 1 ; overflow indicator 
00000002 0000 401 PSL_Z = ¢ 3 zero indicator 
0000000 4 ret PSLLIN = 3; negative indicator 
00000004 0000 403 PSL_LT = 4 ; trace enable indicator 
00000006 0000 404 PSL_FU = 6 : floating underflow fault enable 
00000018 0000 405 PSL_CAM = 24 ; current access mode 
0000001B 0000 406 PSL_FPD = 27 ; instruction first part done 
OO000001E 464 rht4 PSL_TP = 30 ; trace pending indicator 
9000 409 f Masks for the Processor Status Longword 
00000001 0000 411 PSLM_C = 1aPSl_C : carry indicator 
00000002 Bp bp tig PSLM_V = 1aPSL_V ; overflow indicator 
00000004 00 413 PSLM_Z = 1aPSL_2 3; zero indicator 
00000008 0000 414 PSLM_N = 1aPSL 3; negative indicator 
0000000C 0000 415 PSLM_NZ = PSLM_R+PSLM_Z ; reserved floating value condition 
00000007 0000 $18 PSLM_ZVC = PSLM_Z+PSLM_V+PSLM_C : condition bits except for sign 
0000000F 4 ¢ PSLM_NZVC = PSLM_N+PSLM_ZVC ; condition bits 
B60 iis ; Call Frame Layout 
00000000 00 6 421 HANDLER = 0 3; condition handler location 
44s 4 8 4 § SAVE_PSwW = 4 3 save processor status word 
6 425 SAVE_MASK = 6 ; register save mask 
8p 0 3 00 424 MASK_ALIGN = 14 ; bi position of alignment bits 
0 8 425 SAVE_AP = 8 ; user's argument pointer 
0 of 4 § SAVE_FP = 12 ; user's frame pointer 
0 1 427 SAVE_PC = 16 3 return peint 
° 14 4 8 REG_RO = 0 ; user's 
18 429 REG_RI = 4 ; user's R1 
0 if 430 REG_R¢ = 8 ; user's R 
B28 431 REG_RS = 2 ; user's R 
4 4 ¢ REG_R4 = 8 ; user's R4 
00028 0. 435 REG_RS = 4 ; user's R5 
8 0002C 434 REG_RS = 44 ; user's R 
00000350 455 REG_R? = 48 ; user's R 
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4 436 REG_R& = ; user's R 
p 35 4 - RECoRO = 36 ; user's RS 
4 § REG_R10 = 6 ; user's R10 
8 4 459 REG_R11 = 64 3; user's R11 
004 re FRAME_END = 68 i end of call frame 
128 ; Call Frame Extension Layout 
9000 44 444 REG_AP = $8 ; user's AP 
0 88 48 445 REG FP = 3; user's FP 
000 of rk REG_SP = 76 3; user's SP 
BOO 888 8 447 REG_PC = 0 ; user's PC 
0054 ret PSL = 4 3; user's PSL 
00000058 44 ret LOCAL_END = 88 : end of local storage 
444 $3) 3 Local Storage Layout 
FFFFFFFF 0000 138 SAVE_ALIGN = HANDLER=1 ; safe 4 of alignment bits 
FFFFFFFE ©0000 454 CARRY_BIT = SAVE_ALIGN-1 : original setting of carry bit 
FFFFFFFD Q000 455 FAULT_TYPE = CARRY_BIT=1 ; internal code for type of fault 
FFFFFFFC Q000 456 ACTIOR_COUNT = FAULT TYPE-1 ; number of action bytes remaining 
FFFFFFFB Q000 457 ACCVIO_REASON = ACTION_COUNT-1 3; reason mask for access violation 
FFFFFFFA 0000 438 UNUSEL-SY1E_1 = ACCVIO-REASON-1 ; unused byte 
FFFFFFF9 0000 45 UNUSED “BYTE Ag = UNUSED"BYTE_1=1 ; unused byte 
FFFFFFF8 0000 460 UNUSED"BYTE_35 = UNUSED-BYTE~2-1 ; unused byte 
FFFFFFF4 Q000 461 ACTION PTR = UNUSED _BYTE_3-4 3 pointer to current action byte 
FFFFFFFO 0000 466 INST_ABDRESS = ACTION PTR-% : instruction location 
FFFFFFEC ©0000 463 BRANTH_ADDRESS = INST_ADDRESS-4 ; branch destination address 
FFFFFFE8 0000 464 ACCVIO-ADDRESS = BRANTH_ADDRESS-4 3; access violation referenced address 
FFFFFFC4 Q000 465 READ_AREA = ACCVIO_ADDRESS=36 ; area for input operand values 
FFFFFFAQ Q000 466 WRITE_AREA = READ_AREA~36 ; area for output operand values 
FFFFFFAO 8208 re 14 LOCAL_START = WRITE_AREA ; start of local storage 
4 $$? 3 Interpretive Action Codes 
0000001 0000 471 READ_ACCESS = 1 3 read only access operand 
BOON 8 44 £78 WRITE_ACCESS = ; 3 write only access operand 
000000 00 473 MODIFY_ACCESS = : modify access operand 
44 ie 3 474 ADDRESS ACCESS = 4 ; address access operand 
0000005 0 475 BRANCH QORD = 5 ; branch destination operand 
0000000 000 ore POLY_CRECK = 6 ; POLYx post instruction checking 
0000000 44 rhs ACB_CHECK = 7 ; ACBx post instruction checking 
6 t4 3 Data Type Codes | 
0000 01 6 481 FLOAT_TYPE = 1 ; single floating 
0000 ¢ 4 ¢ DOUBLE _TYPE = § ; double floating 
38 8 0 483 GRAND_TYPE = ; 
. 4 484 HUGE_TYPE = 4 ; uge floating 
5 00 485 BYTE_TYPE = 5 ; byte 
st 4] 0 4 § WORD_TYPE = 8 ; word 
00 0 ? LONG_TYPE = : longword 
3 ? ; 5 Derived Codes 
600 0011 491 READ_FLOAT = <FLOAT_TYPE@4>+READ_ACCESS 
0000021 00 492 READ-DOUBLE = <DOUBLE_TYPE@4>+READ_ACCESS 
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31 493 READ_GRAND = <GRAND_TYPE@4>+READ_ACCESS 
2 494 READ-HUGE = SHUGE TYPEQ4> +READ ACCESS 
1 495 READ-BYTE = <BYTE-TYPE@4>+READ_ACCESS 
6 $38 READ-WORD = <WORD-TYPE@4>+READ- ACCESS 
497 WRITE_FLOAT = <FLOAT TYPE@4>+WRITE ACCESS 
¢ 138 WRITE DOUBLE = <DOUBLE_TYPE@4>+wRITE_ACCESS 
499 WRITE-GRAND =  <GRAND TYPE@4>+wRITE_ACCESS 
4 QO WRITE_HUGE = <HUGE_TYPE@4>+WRITE_ACCESS 
7 1 WRITE-LONG =  <LONG TYPE@4>+WRITE-ACCESS 
0 1 ¢ MODIFY_FLOAT = <FLOAT_TYPE@4>+MODIFY ACCESS 
0 § MODIFY“DOUBLE = <DOUBLE_TYPE@4>+MODIFY_ACCESS 
8 : 4 MODIFY-GRAND = <GRAND_TYPE@4>+MODIFY_ACCESS 
4 5 MODIFY HUGE = <HUGE_TYPE@4>+MODIFY_ACCESS 
0000054 0 5 § ADDRESS BYTE = <BYTE-TYPE@4>+ADDRESS ACCESS 
aed BnO8 28 POLY_FLOAT = <FLOAT_TYPE@4>+POLY_CRECK 
00000 ¢8 000 508 POLY-DOUBLE = <DOUBLE TYPE@4>+POLY_CHECK 
00000036 0000 509 POLY-GRAND = <GRAND_TYPE@4>+POLY_ CHECK 
aie 3008 510 POLY-HUGE = GE_TYPE@4>+POLY_CHECK 
000001 000 511 ACB_FLOAT = <FLOAT_TYPE@4>+ACB_CHEC 
ett 0000 218 ACB_DOUBLE = <DOUBLE_TYPE@4>+ACB_CHECK 
00000037 0000 513 ACB- D= <GRAND_TYPE@4>+ACB_CHEC 
00000047 9000 2i% ACB_HUGE = <HUGE_TYPE@4>+ACB_CHECK 
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LIBSSIM_TRAP = Conversion Condition Handler 


| 
parameters: P1 = Signal Array Location 
P2 = Mechanism Array Location | 


returns with RO = Condition Response 
Discussion 


This routine is designed to function as a condition 
handler or it may be called from a condition handler 
(possibly with a chain of intermediate procedure calls) 
with the locations of the signal and mechanism array for 
the condition supplied as parameters. 


When this routine is called it examines the Signet 
array to see if the condition was a {Loat ing overflow fault, 
floating underflow fault, or a floating divide <4 zero fault. 
If the condition is none of these faults, then the routine 
returns with the value SS$_RESIGNAL to indicate that it did 
not handle the condition. 


If the condition is one of those checked for above, then 
the routine examines the procedure frames on the stack up to 
the condition handler frame and determines the values of the 
registers at the time of the exception. The registers are then 
restored and the stack pointer is positioned to the condition 
code in the signal array (which is immediatly before the PC, 
PSL pair for the detected conditions). The routine then 
branches to FAULT_TO_TRAP to initiate the conversion. 


Note: 1. The method of removing the procedure frames above 
the condition handler frame is similar to an 
unwind but differs in that the condition handlers 
in the frames are not activated with the SS$_UNWIND 
status. This was done since it appears to be 
impossible to make the handler call look Like it 
was made by SYSSUNWIND so that overlaping unwinds 
can be detected. 


SOOSCSCSCOSOSOSOSOSOOSOSOSOSOSOSOSSOOSOSOSOSCOOOSOOOSOSOOOSOOOOOoOO 
Sete Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Se Ge Se Ge Se Ge Se Ge Ge Fe Ge Ge Se Ge Ge Ge Se Ge Se Ge Ge Se Ge Ge Fe Ge Ge Ge 


OOOCCOCOCSCOCOSCSOOCOSOOOOSOOSOOSOSOOSOOOOSOOSOSOOOOOOOOOOOOSOSS 
FAWVOOCOCOCOCOCOCOOSOSOSCOSSOSOOSCSOSOOSOOCOOCOCOOOOOOOCOOOOOOoOoOoOO -tt 


PUPP DPUDV LIV IVDVIVIVSPUIVLVSTDIVUSVIVIVIVSIVIUSIVIUSIUSVSIUSVS SVS USUSUSUS USUI VOIUSVOS USVI VOSS VOSS USVI VS TOSS IOSD 
SSNS DPD DD PDA DTT BS BS BS EB BE NWN NI III IIPONIPINININININ 2 SS 
WN =O ODNAWNE AN OOD NAUES WN OOO NA UE WIN O OONAU EWN $$ O OONOUS WN -O0OOon 


SOOOCCOCSOSCOSOSOOSOOSOSOSOOOOOOOOOOSOOOOSOSOSOO OOOO OOOOOOOOOOOOOOOOOOOoOOo 


-ENTRY LIBSSIM_TRAP,- 3 entrance 
000c 00 “M<R2,R3> 3 entry mask 
50 4 AC +4 ; MOVL 4(AP) ,RO ; RO = signal array location 
51 4 AO OD MOVL 4(RO),R1 3; R1 = condition code 
51 000004C4 BF D1 0 CMPL  #SS$_FLTUND_F,R1 : floating underflow fault ? 
18 #13 11 BEQL 1$ : yes - bypass 
51 0000048C 8F 01 Bi; CMPL #SS$_FLTDIV_F,R1 ; floating divide by zero fault ? 
2. 1A BEQL 1$ ; yes - bypass 
51 00000484 8F 01 1 CMPL #SS$_FLTOVF_F,R1 ; floating overflow fault ? 
13 BEQL 1$ 3 xgs - bypass 
50 0918 8F Oe 2 aeyeut #SS$_RESIGNAL ,RO ; ¥.. resignal condition code 
3; return 
SE 4 AD E 8 1$: MOVAB =-12(FP) y ; allocate space for AP, FP, SP 
FFO 8F F PUSHR #*M<R4,R5,R6,R7,R8.R9,R10,R11> ; Save registers R4-R11 
3 10 C 3 SUBL2 #16,SP 3; allocate space for RO, R1, R2, R3 
5D OD 6 MOVL FPR ; RO = current frame pointer 
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51 06a0 OC O F 9 74 2$: EXTZV 4 Fi #1 aye geek (no). R1 ; R1 = register save mask 
52 4A oe } g? MOVAB *RBtROD 3; R2 = Start of registers in RO frame 
D te § CLRL iy 3; clear the register index 
mo mT 6S FA 4 77 3$: FFS m2, R1 * ; find the next saved register 
3 4A 4 BEQL a3" 3 No more saved registers - bypass 
6E43 D 4 7 MOVI (R2)+,(SP)CR3I 3 get the register value 
06 0 INCL R3 ncrement the reg ster number 
rs i. 1 BRB 3$ look some more 
OF ah AO 7D 4 ¢ 4$ MOVa SAVE_AP(RO) ,48(SP) agt ¢ the values of AP and SP 
10 AO 3000 000 4 8F D4 39 ; CPL #SYSSCALL_HANDL +4, SAVE he ); is this the handler frame ? 
: yes - as 
50 34 a 9 3 5 MOVL (SP) ,RO : h6°= retin of next call frame 
3 6 BRB 3 ated the frame 
38 AE 9f AC 4 Ci 0069 7 5$ ADDL3 #4,4(AP),56(SP) 3 point saved SP to condition name 
0 08 AC oO O6F 2 a MOVL 8(AP),RO ; RO = mechanism array location 
6— OC AO 7D 00 : 89 MOVa  12(ROS, (SP) : get RO and R1 
7FFF 8F BA 007 590 POPR #*M<RO,R1,R2,R3,R4,R5,- ; restore ~ A : E RO-SP 
0078 2) R6,R7,RB,RI,RIO.RI1,AP,FP,SP> ; with SP ot Be my to condition 
0078 3 ; BRB FAULT_TO_TRAP 3 enter the conversion routine 
007B 59 5 
| 
| 
j 
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A 38 3 FAULT_TO_TRAP = Perform Fault to Trap Conversion 
ie 38 ; entered by branching 
078 680 3 parameters: (SP) = Fault Condition Code 
078 601 3 4(SP) = Instruction Location 
ore o0e ; 8(SP) = PSL Value 
378 one : Discussion 
ore 606 3 et routine sets up the frame for the fault to trap 
7B 6 ; conversion routine and initializes everything. The specified 
078 on8 : parameters describe the condition that occured and 12(SP) is 
078 609 3 assumed to be the user's stack pointer at the time of the 
00768 610 ; fault. A'! of the other registers are assumed to be the user's 
Ba ee el) $ registers. 
$078 $18 ; First the stack is extended to CALL_ARGS-3 lLongwords to 
0078 614 5 provide the area for simulating the top of the user's stack. 
007B 615 : A CALLS instruction is then executed which specifies all of 
0078 $16 ; the CALL_ARGS longwords below the user's stack pointer as 
007B 61 : the parameter List. The local storage for the frame is then 
0078 618 ; allocated and the alignment bits for the frame are saved in 
007B 619 3 a local storage cell. The condition handler for the routine 
0078 620 5 is then set up. The CALLS instruction also saves the user's 
007B 621 ; registers RO,...,R11 in order and saves AP and FP elsewhere 
0078 6 4 : in the frame. The routine then the saved registers by saving 
007B 6 ; the user's AP, FP, SP, PC, and PSL after the saved registers. 
007B 624 3 AP and FP are taken from the frame, SP is computed, and PC and 
th ° 5 ; PSL are taken from the parameter List. 
007B 6 3 : The condition code for the fault is converted to a short 
007B 628 ; internal code for use in branching and the carry bit in the 
007B 629 3 user's PSL is saved. The instruction location is stored in the 
007B 630 3 return PC for the frame so it will be discovered by the 
007B 631 : traceback handler if the routine blows up. If the T bit is set 
0078 $36 ; in the user's PSL then the TP bit is also set to insure that 
Bore ? ? 3 instructions are not lost if the debugger is running. 
0078 oe : The opcode of the instruction is the analyzed and the 
078 $36 } Location of the action bytes for the instruction is computed. 
07B 63 3 (The details of this computation are given in the table 
078 O38 : descriptions below.) The action pointer and action count are 
07B 6 ‘ set up for processing the instruction, the pointers to the 
078 640 5 read area and the write area are initialized, and control 
ae $4) ; enters the action loop to process the instruction. 
078 ak: : Note: 1. From the description of the wey that the simulated 
07B 644 3 register area is constructed, it is clear that 
07B 645 3 the length longword of the pereneter List is 
078 966 ; overwritten. ALL of the methods of leaving 
7B 64 s the fault to tra converter put this longword 
78 908 : back together. The internal condition handler 
78 649 : does this if it detects an unwind. 
7B 651 FAULT_TO_TRAP: ; entrance 
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ohe< - ; allocate the flexible stack space 
5 FF6C 9E 7 6 MOVAB 4*<CALL_ARGS-3>(SP),SP : a hag Rae. 
ovoadbae'EF és 60 5 g watt ACALL ARGS, 18 ithe catty Ut never ure pore 
: “ R4,R5.R6,R7,RB,RI, > ; entry mas 
AO AD a § ; $3? = HOVAB LOC TANS UBS sp : allocate the local storage 
50 06 wre 02 OF fF O8E 630 EXTZV #HASK ALIGN #2, SAVE MASK(FP) JR thet .. alignment bits 
Ra 0178" Cr oe $98 g38 MOVAB USEONVERT HANDLER, HANDLEA(FP)<: set up the condition pees 
; mov 
M0” oone tr op O90 geo NOVAS PERCE ARGSsiSTAP) REG SP(FP) 3 move user's SP into place 
$6 AD icy EE if on 206 MOVQ Pace Ahh Amog= > A0) REC PC KEP? j waye a oe is into place 
— bd Ss 
G oe fF Bf ick $i CRPu rhs ALL TONG FRO ; : gpa a as te fault ? 
50 8 8 Sopa $63 SON 3 RO 3 « = internal code 
50 0484 ay BI d0er $67 2s: Ore #SS$_FLTOVF_F RO : tating overtiow fault ? 
50 §3 06 b0c6 re SOUL 23. Ro : ~ = internal code 
r ass 
ge a1 O0c8 7) 3$: ORPy 2538 FLTDIV_F,RO 3 tloatin divide by zero fault ? 
50 048C 8F 61 OO0CB ore : aay ees. Js ts ao 
Ke b0ps $y HALT 3; something went wrong ! 
8 inks 675 4$: MOVL LP) ; RO = internal code 
a» 30 90 0006 676 5$: MOVB RO, FAULT TYPE (FP) ; save the fault code 
aig ke 94 QODA 677 ; CLRB CARRY_BIT(FP) ; clear the carry bit flag 
03 54 o 00 —E1 O0DD 678 BBC erst C.F St (EP) .68 : Tl gpa ag | te Fyn. ? 
eS bors rth 6$ dpe bps T SEL CEP) 7$ : the trace enable bit is clear - skip 
$0 86 Ab. ME OER OE 681 BBSS #PSL-TP,PSL(FPS,7 3 set the trace pending bit : 
is sons 6S SER 682 7$ MOVL REG PC(FP),SAVE PC(FP) : store tracebac instruction location 
FO AD BO AD BO OOF Hf MOVL kEG PC (FP) . INST ADDRESS (FP) 3; save the instruction address 
Je 3 25 BD BA $OF9 $B MOVZBL @REG_PC(FPS,R2 ~ : Re = first byte of instruction 
50 AD D6 OOFD 685 INCL REG PC(FP) ; jreronen A. :. ¢ 
52 FD 8F 91 0100 686 CMPB #*XFD,R2 ; is th x yee. ? 
ae Shr rat eet es #4,R2,R3 : KS. piaanne Be nibble | 
ene 95 OF EA $108 689 BicL2 #15,rd ~ : clear low-order nibble in R2 
u a Oty g30 nov 4 ; R Pe second byte of instruction 
Se Bay mi Bom Bernas. oo ee ecreng ot 
. = =O 
eS ae ie re tatty By ea Re RS : store con in the low-order nibble 
a 53°" OLAS cee a 134 $98 9$ MOVAW we Chass fABLR3),R3 : ns = Location of word for class 
. 2 e 
of ab v8 156 38 EV TBE a : R3 = relative position of class 
33. 4 8F OIE 698 MOVAB W*CLASS_TABCR3],R3 ; R35 = Location of class table 
a ora? a | zi 0 f 99 LOCC Re R4, (R3) ; look for fhe inagructton 
" 3 138 700 ott , $ : ao sound, find it’= internal error 
gf i 3 6 10$: MOVZBL (R1)CR4),R1 ; Rl = relative position of pattern 
5 33 re 13F 08 ; MOVAB W*PATTERNSCR1),RO ; RO = location of pattern string 
7 Pw 34 Fe f 145 704 MOVB aR) Oe LOR tapes ore 3 epere pied acer ates 
: r ’ 
Bh eee aD 3e 160 , 2 MOVAB READ AREATEP) «R10 ; RI = location of read operand area 
35 AO AD E 18) 7 $ MOVAB WRITE AREACFPS,R11 ; R11 = Location of write operand area 
* AO1a8 5 133 708 BRW ACTIOR_LOOP 3 enter the action loop 
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Normal End of Fault to Trap Conversion 
entered by branching 
no parameters 

Discussion 


This routine is’ entered at the end of instruction 
grecees ing. First it writes all of the output operands. 
he values of yaeve operands is in the write area in the 
frame. When this operation is complete, the routine branches 
to the routine which signals the appropriate arithmetic trap. 


Note: 1. Each entry of the write area consists of a longword 
containing the operand location, followed by a 
Longword sereetacne the number of bytes of the 
operand. followed by that many bytes containing 
the value to be output. For coperee operands, the 
address of the simulated register is used. The 
Location of the next byte in the write area is 
always contained in R11. 
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56 AO AD 9 MOVAB WRITE_AREA(FP),R6 ; R6 = location of output value area 
5 56 D1 1$: CMPL R6,RIT 3 have we reached the end ? 
oc «613 BEQL 3 z9s - bypass 
57 86 7D MOVQ (R6)+,R7 ; R7 = address, R8& = Length 
67 66 58 28 MOVC3 RB, (R6), (R7) > output the value 
56 58 CO ADDL2 R8,R6 3 position past the value 
Baa 68 BRB 1$ ; loop 
02 O01 #FD AD 8F 6D 4 ¢: CASEB FAULT_TYPE(FP),#1,42 3; branch on the fault type 
OSCE’ 0172 744 3$: -WORD UNDERFLOW TRAP-3$ ; 1 = floating underflow 
QO5DC' 0174 74 -WORD OVERFLOW TRAP-3$ ; ¢ - floating overflow 
OSEA’ 6 reg -WORD DIVIDE_TRAP-3$ ; 3 - floating divide by zero 
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CONVERT_HANDLER = Internal Condition Handler 


parameters: Pl = Signal Array Location 
2 = Mechanism Array Location 


returns with RO = Condition Response 
Discussion 


This routine is the internal condition handler for the 
fault to trap converter. Since the converter does not make 
constructive use of exceptions except in special procedures, 
this routine requests of all conditions it intercepts. 


If the condition is SS$_UNWIND which indicates that an 
unwind is about to take place, then it restores the argument 
count meyers in the parameter List for the procedure so the 
unwind will work properly. 


CONVERT_HANDLER: ; entrance 

RD entry mask ; 
RO,R| = condition array locations 
is this an unwind ? 
no - bypass 
RO = frame location 


SN 
PAEQEMNMANNINIIIIU 


WO OONOUES WMO” 


NN 
SOS SSS. 


AP) ,RO 
S$_UNWIND,4(RO) 
R 

V 


1),R0 
E_ALIGN(RO) ,R1 ; R1 = safe copy of alignment bits 
-#MASK_ALIGN,#2,SAVE_MASK(RO) ; store align bits in frame 
-RO ; add to the frame vocation 
ALL_ARGS,FRAME_END(RO) ; store the argument count 
S$_RESIGNAL,RO ; resignat the condition 
; return 
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Instruction Lookup and Action Tables 


Discussion 


The following tables are used for identifying the 
instructions which the fault to trap converter is supposed to 
process and for determining what actions are gecomers to 
process these instructions. Three sets of tables are involved. 

irst there is the class lookup table which is used to locate 
the class table for a particular instruction class. Next there 
s the class table which is used to search for a particular 
instruction and then to determine its action pattern table. 
Finally there is the action pattern table which specifies the 
various actions taken for the instruction. 


For a one byte opcode, the class of the instruction is the 
low order nibble of the opcode and the ber of the instruction 
is tne opcode with the low order nibble cleared. For a two 
byte opcode (where the first Byte is FD), the class of the 
instruction is the low order nibble of the second byte and 
the ney of the instruction is the second byte of the opcode 
with the low order nibble set to one. 


| 
The class Sage table CLASS TAB is a table of words which | 
is indexed by the class number. The first byte of the indexed 
entry is the position (relative to CLASS_TAB) of the class 
table for the class and the second byte of the indexed entry 
is the number of entries in the class table. 
| 


The class table for a particular class consists of two 
byte strings of equal size. The first oyte string (the 
instruction lookup table) contains the keys for the 
instructions in the class and the corresponding bytes in the 
second string (the action table) consist of the page Hage 
ee oc to PATTERNS) of the action pattern table for the 

nstruction. 


An action pattern table is a byte string in which the 
first byte contains the number of actions and the remainin 
bytes contain the codes for the individual actions. The code 
for an action contains the action type in the low order nibble 
and a qualifying data type in the high-order nibble. ALL of 
action codes used have been given identifiers which are 
defined in the definition section of this module. 


A short table which maps data type codes into their 
Lengths in bytes has also been included. 
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bg 4 -BYTE *x 61 ; 62FD SUBH2 
De $3 Class 2 Action Table 

D7 $01 ACTION_2: 

D7 9 § BYTE PATTERN_SUBF2=-PATTERNS ; 4 SUBF 
4 3 -BYTE PATTERN, SUBD2-PATTERNS ; 6 SUBD 
D 904 BYTE PATTERN SUBG2=-PATTERNS ; 42FD SUBG 
be 444 -BYTE PATTERN, SUBH2-PATTERNS ; 62FD SUBH 
pS $07 Class 3 Instruction Lookup Table 

DB 308 CLASS_3: ; 

DB sé910 BYTE *x 40 ; $3 SUBF 3 
oC 911 “BYTE *x 60 3 § SUBD3 
DD at BYTE “x 31 : 33FD CVIGF 
DE 91 -BYTE “x 41 : 43FD SUBG3 
Of 318 -BYTE “x 61 ; 63FD SUBH3 
£0 318 : Class 3 Action Table 

EO 918 ACTION_3: 

EO 919 -BYTE PATTERN_SUBF3-PATTERNS ; 43 SUBF 3 
E1 920 -BYTE PATTERN_SUBD3-PATTERNS  ; $3 SUBD3 
ES 921 -BYTE PATTERN CVTGF=PATTERNS ; FD CVTGF 
E 9 § -BYTE PATTERN_SUBGS-PATTERNS ; 43FD SUBG3 
+ 4 7 -BYTE PATTERN_ SUBH3-PATTERNS ; 63FD SUBH3 
ee 2 5 ; Class 4 Instruction Lookup Table 

E5 9 $ CLASS_ 4:° 

E5 928 -BYTE “x 40 3 44 MULF 2 
E6 929 YTE “x 50 3; 54 EMODF 
E7 930 BYTE *xX 60 3; 64 MULD2 
E8 33) -BYTE “x 70 3 74 EMODD 
9 9 é YTE *x 41 ; 44FD MULG2 
EA 9 BYTE “x 51 ; 54FD EMODG 
EB 934 BYTE “x 61 3; 64FD MULH2 
45 3 5 BYTE w A ; 74FD EMODH 
gp $37 : Class 4 Action Table 

ED 939 ACTION_4: 

ED 940 BYTE PATTERN_MULF2-PATTERNS ; 44 MULF 2 
EE 941 BYTE PATTERN_EMODF -PATTERNS : 54 EMODF 
EF 206 -BYTE  PATTERN_MULD2-PATTERNS ; $ MULD2 
FO 94 BYTE PATTERN_EMODD-PATTERNS ; EMOD 
Fl 944 BYTE PATTERN_MULG2-PATTERNS ; 44FD MULG 
Fs 945 BYTE PATTERN_EMODG=PATTERNS ; 54FD EMOD 
i 308 «BYTE PATTERN_MULH2-PATTERNS : sere MULH 
* 3 BYTE PATTERN_ EMODH-PATTERNS ; 74FD EMODH 
i $9 : Class 5 Instruction Lookup Table 

' $31 CLASS_5:— 

F 9 § BYTE “y $8 : 45 MULF3 
F695 -BYTE “*xX 5 3; 55 POL YF 
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+ O08 TRAP = fonvert + aay Faults t "23 Pa} 984 99: 18; 3 LIBRTL. SR REIL IBSIMTRA.MAR; 1 wn 46) | -0( 
iC } 1} BYTE PATTERN_CVTHD=PATTERNS ; F7 CVTHD 
1p 18 ; Class F Instruction Lookup Table | 
1D 1015 CLASS_F:° 
i. 18 " @VTE a6 ; 4F ACBF 
1€ 101 BYTE “x 6 3 OF ACBD 
1 e. 18 BYTE “x 41 ; SFFD ACBG 
9 ! 3 -BYTE “xX 61 ; 6FFD ACBH 
1 ; Class F Action Table | 
i g ACTION_F : 
1 1024 -BYTE PATTERN_ACBF=-PATTERNS 3; 4F ACBF 
; 1025 BYTE PATTERN_ACBD-PATTERNS 3 (OF ACBD 
1 § -BYTE PATTERN_ACBG-PATTERNS 3; SFFD ACBG 
! 8 BYTE PATTERN, ACBH-PATTERNS ; 6FFD ACBH 
10 : 
: 1030 3 Pattern Action Tables 
ORs 4 (eee ea me ee em em 
1p PATTERNS: : origin for pattern action tables 
5 1035 3 Pattern for ADDF2, DIVF2, MULF2, and SUBF2 
3 1037 PATTERN_ ApvF2: 
a $3 PATTERN_ DIVF2: 
: 1039 PATTERN “MULF 2 | 
ey PATTERN_ SUBF 2: 
5 1041 ~ BYTE 2 
§ ok -BYTE READ_FLOAT 
1944 BYTE MODIFY" FLOAT 
: 1397 ; Pattern for ADDD2, DIVD2, MULD2, and SUBD2 
8 1 23 PATTERN_ Avvo 
1048 PATTERN. Divo 
1049 PATTER LDe: 
1050 PATTERN SUBD : 
1 3) th 2 
1 § BYTE READ_DOUBLE 
} 37 “BY YTE MODIFY DOUBLE 
; ! 35 Pattern for ADDG2, DIVG2, MULG2, and SUBG2 
B 1 a PATTERN_ Aovce: 
B 1 : PATTERN_DIVG : 
B 1 PATTERN_MULG2: 
B 106 PATTERN SUBG2: 
B 1 ? ” BYTE 
C1068 "BYTE READ_GRAND | 
D -BYTE — MODIFY_GRAND 
E 65 : Pattern for ADDH2, DIVH2, MULH2, and SUBH2 
— 1 ¢9 PATTERN_ADDH2: 
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| 
98 : 
43 ! : ACTION_LOOP = Action Dispatching Routine | 
98 1285 : entered by branching 
0568 1589 
‘ no parameters 
0298 1288 : | 
98 1289 3 Discussion 
9B 1290 ; 
9B 1291 : This routine passes control to the routine for the next 
0298 1 36 : action required to process the current instruction. The 
8 9B 129 3 pointer to the current action code is contained in the local | 
9B 1294 ; cell ACTION_PTR and the number of actions not yet processed is 
0298 1295 : contained in the loca! cell ACTION COUNT. When all of the | 
0298 1296 3 actions for the instruction have been performed, control 
0298 1297 : passes to FINISH. When an action is complete, the routine 
5 = : 38 ; exits by branching to ACTION_LOOP. | 
0298 13500 ; Note: 1. When an action routine is entered, the following 
0298 1301 ; values are available in the registers: | 
0298 1306 : ; 
BSoe 130 : R6 = type of action 
0298 1304 : R? = data type for action : 
Osoe 1305 3 R8 = data type length for action 
0298 1308 : 
0298 1307 ACTION_LOOP: ; entrance 
FC AD 97 0298 1308 DECB ACTION_COUNT (FP) ; decrement the counter — 
03 18 O29E 1309 BGEQ 1$ ; it's not negative - skip 
FEBS § 31 O2A0 1310 BRW FINISH ; finish up 
FL AD D6 O2A3 1311 1$ I ACTION FP) : increment the action pointer 
50 F4 BD 9A O2A6 1318 MOVZBL @ACTION_PTR(FP),RO ; RO = next action byte 
56 650 00 EF OQO2AA 131 EXTZV #0,#4,R0,R6 3 R6 = type of action 
57 50 EF O2AF 1314 EXTZV #4,#4,R0,R7 ; R7 = data type 
58 DB AFS7 98 02B4 131 CVTBL DATA_LENGTHS-1C(R7],R8  : RB = data length 
06 CF Q2B9 1316 CASEL R6,#T, ; branch on the action type 
OOOE' O2BD 1317 2$ <WORD OPERAND-2$ i: 1 = operand with read access 
OO0E* O2BF 1318 «WORD OPERAND-2$ 3 ¢ - operand with write access 
QOOE’ O2C1 131 -WO OPERAND-2$ ; 5 = operand with modify access 
OO0E* 02C3 1350 .W OPERAND-2$ : 4 - operand with address access 
O1EF* O2c5 1321 ; WORD_BRANCH-2$ : 5 = word branch displacement 
0254" 02C7 1356 WORD CHECR_POLY-2$ ; 6 - post checking for POLYx 
0200° 02C9 136 «WORD CHECK_ACB-2$ ; 7? = post checking for ACBx 
02CB 1324 ; 
| 
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General Discussion 


The fot lowing routines perform those actions which 
specify instruction operand processing. The action code 
contains the access type and the data type for the operand 
and these values atong with the data type are available in 
the registers R6, R7, and R8. The routine operand decodes 

the operand specifier and branches to the routine for handling 
the particular operand type. When this routine is entered, the 
operand specifier byte, the low order nibble, and the high 
order nibble, are available in R , R1, and Re. 


During operand processing all of the side effects which 
change register values unless FPD is set in the PSL in which 
case only side effects for PC are performed. This is because 
operand scanning is only used to determine the instruction 
sngen when FPD is set since the operands are in the user's | 
registers or on his stack. 


Except for Literal mode operands and index mode operands 
the operand scanning routines gtapiy determine the location 
of the operand and enter ACCESS_OPERAND with this location in | 
R9. For literal mode operands, the operand value is computed 
and stored in the read area. For index mode operands, the 
index modification is computed into R3 and then the routine 
process the next byte as an operand specifier and branches to 
the appropriate operand processing routine. 


The routine ACCESS_OPERAND performs one of several actions | 
for the operand based on the operand access and data types and 
on the type of exception being processed. If the operand is 
read or address, then the operand value or address is copied 
into the read area. If the operand is write or modify then a | 
value for it is placed in the write area depending on the data 
type and exception type. For rategor data types and for 
underflow exceptions, this value is always zero. For overflow 
and divide exceptions and bg Ba operands the value is a 
reserved floating value. When ACCESS_OPERAND is done control | 
passes back to ACTION_LOOP. 


The read area is used to hold the values of all of the 
read only and address only operands of the instruction in 
contiguous bytes. The register R10 contains the location of 
next available byte in the read area. The read area is used 
by the peaterocess tog routine for the ACBx instructions in 
order to determine if the branch should be taken. 


The write area is a List of all of the values to be 
output by FINISH when instruction processing is complete. 


NOUS AN @ OOO NAUE WN O OD NOAU EWN OC OD NAME WN O OONOAU EW OOONO 


The values are not output as the operands are processed since 
the architecture requires that all operands be processed 
before any values are output. The format of this area is 
given in the description of FINISH. 


CGDOOOOOOOCOCOOOOOSOSSCOOSOSOSOOOOOSOSOO SOOO SOOSOSOOSOOOOOSOSOOOOOSOOOCOSOOOCOO 
PROPPOPIPOPOPIPENPINIPIPIPINININININININININININININNINININININNININNNNNINTININININRNINININIAINIAINININN = E— 
FDOOOOOOOOOAOOOAAOODAOAOAOOOOODAOOD DAA OOONOOAANONAOODOONANOOOAooo 
fe sTesTesTestestesTesTesDestesTesTeclesestecdesTestesTestesTesJecdesJesdesteJesde-DesDestestesTesdes[estostestestesDesDestesDestostesTostes[esTs [este steele ste sfe sts sis «) 


WWIWNALANI AINA AANA 
oooyNNs 
m—OO0e 


dD 3 


IBSSIM_TRAP - Simulate floating tra 16-SEP-1984 00:18:50 VAX/VMS Macro v04-00 Page 31 
eth LIBSSIM_TRAP - tenvert Poating Faults ¢t aes Pi 00: 1B ae LIBRTL.SRCILIBSIMTRA.MAR; 1 . (12) | 
CB «1383 3 
CB 1384 3 
+. ! 5 : OPERAND = Process the Next Operand Specifier 
és : $ ; entered by branching 
3 } 89 ; parameters: ( See the discussion of ACTION_LOOP. ) 
CB 1391 OPERAND: 3; entrance 
50 508D 9A cB 5 MOVZ @REG_PC(FP),RO ; RO = operand ogect tier byte 
50 AD 06 CF 139 INCL REG PCCFP) 3; increment the PC 
Fe. wa we Pe Dé 1394 EXTZV #0,84,R0,R1 ; R1 = low order nibble of specifier 
52 50 046 O64 EF D7? 1395 EXTZV #6,#4,R0,R2 ; R2 = high order nibble of specifier 
53 D4 O2DC 1396 CLRL 3 ; clear the index modification 
2. Ff & Dg 1397 CASEL R2,#0,#15 ; branch on the high order nibble 
0020" O22 1398 18: .WORD LITERAL _MODE-1$ : 0 = literal mode 
0020' 0264 1399 -WORD LITERAL_MODE-1$ : 1 - literal mode 
0020" 0266 1400 «WORD LITERAL_MODE-1$ 3 ¢ - literal mode 
0020° O2E8 1401 -WORD LITERAL_MODE-1$ : 3 - literal mode 
006D* O2EA 1a06 WORD INDEX_MODE-1$ ; 4 - index mode 
QOA8' O2EC 140 -WORD REGISTER MODE-1$ ; 5 - register mode 
00B0' O2EE 1404 «WORD REG DEF MODE-1$ ; 6 - register deferred mode 
0089" O2FO 1405 «WORD DECR_MODE-1$ : 7 = autodecrement mode 
OOCF* O2F2 1406 -WORD INCR_MODE-1$ : 8 - autoincrement mode 
QOOEA’ O2F4 1407 «WORD INCR_DEF MODE-1$ ; 9 = autoincrement deferred mode 
0108" O2F6 1408 WORD BYTE_DISP_MODE-1$ ; A - byte displacement mode 
0111" O2F8 1409 -WORD BYTE_DEF _MODE- ; B = byte displacement deferred mode 
O11A' O2FA 1410 -WORD WORD-DISP MODE-1$ ; C = word displacement mode 
0124" O2FC 1411 «WORD WORD_DEF _MODE-1 ; D0 - word displacement deferred mode 
01 + bere 9 . LONG_DISP_MODE-1$ ; E - long displacement mode 
0138" Ba08 117 -WORD LONG DEF _MODE-1$ 3; F = long displacement deferred mode 
4 1012 : Process a Literal Mode Operand Specifier 
530 1417 LITERAL_MODE: i entrance 
06 O01 57 CF Q302 1418 CASEL R7,41,#6 ; branch on the data type 
OO00E' Bane 1419 1$: - WORD ¢3- 13 ; 1 float 
0019" 0308 1420 WORD $-1$ 3 ¢ - double 
OO1F* Bape 1421 -WORD 4$-1$ 5 - gran 
002C' Sh 14 ¢ - WORD ee-13 : 4 - huge 
0039° QO30E 14 - WORD $-1$ ; 5 - byte 
003E' 0310 1424 -WORD 8$-1$ : 6 - word 
0043" 0312 1425 -WORD 9$-1$ ; 7 = long ; d 
50 04 78 14 14 § 2s: ASHL #4,R0,RO 3; position the Literal bits 
BA 4000 CO 9E 0318 14 MOVAB 1a14(R0),(R10)+ > Save the value 
- Pee 1D 1428 BRB 10$ 3 bypass 
50 50 04 78 8 1F 1429 3$: ASHL #4,R0,R0 3; position the literal bits 
046 11 Q3 ; 1430 BRB 5$ 3 skip 
— = re Se 1431 4$: ASHL #1,R0,RO 3; position the Literal bits 
BA 4000 CO 9€ 9 14 : 5$: MOVAB 1814(RO),(R10)+ > save the first longword 
BA D4 14 CLRL (R10)+ ; clear the second longword 
1A 1434 BRB 10$ ; bypass 
50 50 11D 9 1455 6$ ROTL #29,R0,R0 3: position the Literal bits 
BA 4000 co 9E 6 14 6 MOVAB 1014(R6),(R10)+ : save the first Longword 
A 4 14 CLRL ists ; clear the second longword 
BA C D 1438 CLRQ (R10)+ ; clear the second quadword 
BA 50 90 O33F 1439 7$ MOVB RO, (R10)+ 3 save the byte value 
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11 42 1440 BRB 10$ ; bypass 
BA : BO tf 1441 8$: MOV RO, (R10)+ r save the word value 
p 11 0347 1448 BRB 10$ ; skip 
BA 0 49 1445 9$: MOVL RO, (R10)+ ; save the longword value 
FF4C O31 at 1448 10$:  BRW ACTION_LOOP : end of operand processing 
8 res 1778 s Process an Index Mode Operand Specifier 
6 4F 1448 INDEX_MODE: ; entrance 
53 14 AD41 58 §3 4F 1449 MULL3 8, REG PeStP Eats Re ; R3 = index modification 
50 50 8D 9A 0355 1450 MOVZBL a@REG PC(FP),R : RO = next operand specifier byte 
50 AD 06 8 2? 12) INC age PCCFP) ; increment the PC 
51 50 06 OO EF C 14 § EXTZV #0,84,R0,R1 ; R1 = low order nibble or specifier 
52 50 06 Q6 EF 8 61 145 EXTZV #4,#4,R0,R2 ; R1 = high order nibble of specifier 
OF 00 52 CF 0366 1454 CASEL R2,#0,815 : branch on the high order nibble 
0000 8 6A 1455 1$: - WORD 8 : 0 - Literal mode 
0000 6C 1428 «WORD : 1 - Literal mode 
0000 QO36— 145 » WORD 8 : ¢ - literal mode 
0000 8 70 1458 WORD : 3 - Literal mode 
0000 72 1459 «WORD QO : 4 - index mode { 
0000 0374 1460 «WORD 0 ; 5 - register mode 
0028' 0376 1461 WORD REG _DEF_MODE-1$ ; 6 - register deferred mode | 
0031" 0378 1066 -WORD DECR_MODE-1$ ; 7 = autodecrement mode 
0047" O37A 146 «WORD INCR_MODE-1$ : 8 - autoincrement mode 
0062' 037C 1464 «WORD INCR_DEF _MODE-1$ : 9 = autoincrement deferred mode 
0080" O37E 1465 -WORD BYTE_DISP _MODE-1$ 3; A = byte displacement mode 
0089" 0380 1466 -WORD BYTE_DEF MODE-1$ 3 B - byte displacement deferred mode 
0092" 0382 1467 -WORD WORD-DISP_MODE-1$ ; C - word displacement mode 
OO9C' 0384 1468 -WORD WORD-DEF MODE-1$ ; D - word displacement deferred mode 
Q0A6' 0386 1469 -WORD LONG_DISP_MODE-1$ : E - long displacement mode 
0080" Baee 1609 «WORD LONG_DEF _MODE-1$ : F = long displacement deferred mode 
O38A 13%6 3 Process a Register Mode Operand Specifier 
tty 147 ; 
38A 1474 REGISTER MODE: ; ent®ance — 
59 14 AD41 DE O38A 1475 MOVAL REG_ROC(FP)CR1),R9 ; RY = location of the operand 
00B1 31 te 1676 BRwW ACCESS_OPERAND 3 access the operand 
B39 1o78 3 Process a Register Deferred Mode Operand Specifier 
0392 1480 REG_DEF_MODE: ; entrance | 
59 14 AD41 53 ¢ 0392 1481 ADDLS R3,REG_RO(FP)CR1IJ,R9 ; RY = Location of the operand 
00A8 1 0 be 1? ¢ ACCESS ~OPERAND 3 access the operand 
3 1? : : Process an Autodecrement Mode Operand Specifier 
398 14 $ DECR_MODE : > entrance 
03 54 AD 18 3 14 BBC #PSL_FPD,PSL(FP),1$ : side effects are allowed - skip 
FEF 1 AO 14 } BRWw A TIOn_LOOP 3 end of operand processing ; 
14 AD41 = 5 C2 AS 1489 1$: SUBL RB, REG_ROCFP) Ri] ; subtract data size from the register 
59 14 AD41 5 ¢ AB 1490 ADDL R5,REG_ROCFP)CRIJ,R9 ; RY = location of the operand 
0092 1 ~ 163) BRW ACCESS -OPERAND 3 access the operand 
4 1438 3 Process an Autoincrement Mode Operand Specifier 
1 1495 INCR_MODE : ; entrance — 
1 1496 CMPL #15,R1 ; is the register PC ? 
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13 4 1497 BEQL 1$ : yes - side effects are required | 
03 54 AD 18 G1 0586 1498 BBC #PSL_FPD,PSL(FP),1$ : Side effects are allowed ~ skip | 
FE 1 BB 149 BR? ACTION_LOOP z end of operand processing 
59 14 ADG1 C1 ef 1500 1$: ADOL R5,REG_R 4 ta ; RY = operand address 
14 ADG1 0 C4 1501 ADDL RB, REG_ROCFP)CR1 ; increment the register 
00 1 C9 ‘ BRW ACCESS" OPERAND > access the operand 
ee 1288 ; Process an Autoincrement Deferred Mode Operand Specifier | 
6 cc 15 $ INCR_DEF MODE: ; entrance | 
51 OF 1 O3CC 15 CMPL#15,R1 ; is the register PC ? 
08 13 8 CF 13 3 BEQL 1 : yes - side effects are required 
03 54 AD 18 4 D1 1 BBC #PSL_FPD,PSL(FP),1$ ; side effects are allowed - skip 
FEC 1 0306 1510 BRW ACTION_L 3; end of operand processing 
59 14 AD41 DO O3D09 1511 1$: MOVL REG_ROTFP)CR1I,R9 ; RY = Location of address longword 
, ae. a) es B30 1316 ADDL R3, TRO) ,R ; RY = operand address 
14 AD41 04 9 E2 151 ADDL Lo REG_RO(FP)CR1) ; increment the register 
0059 1 bees 1313 BRW ACCESS OPERAND 3; access the operand 
Been 1318 : Process a Byte Displacement Mode Operand Specifier 
O3EA 1318 BYTE_DISP_MODE: ; entrance 
59 50 8D 98 O3EA 151 COTBL @REG_PC(FP),R9 ; ROY = the byte displacement 
50 AD D6 O3€E 1359 INCL REG_PC(FP) : increment the PC 
31 oat 1 1 BRB DISP_MODE : finish processing the specifier 
Oa 1398 : Process a Byte Displacement Deferred Mode Operand Specifier | 
O3F3 1525 BYTE_DEF MODE: : entrance 
59 50 68D 98 O3F3 1526 CVTBL a@REG_PC(FP),R9 ; RO = the byte displacement 
50 AD D6 O3F? 1527 INCL REG_PC(FP : increment the PC 
ie bara 13 8 BRB DISP_DEF _MODE : finish processing the specifier 
bare 1386 : Process a Word Displacement Mode Operand Specifier 
O3FC 1332 WORD_DISP_MODE: ; entrance 
5 50 BD 32 O3FC 153 CUTWL  @REG PC(FP),R9 3; R9 = the word displacement 
50 AD 02 CO 0400 1534 ADDL2 #2,REG_PC(FP) 3 increment the P 
oa Bebe 133? BRB DISP_MODE : finish processing the specifier 
Bebe 1337 : Process a Word Displacement Deferred Mode Operand Specifier 
bcos 1339 WORD_DEF MODE : : entrance | 
59 50 BD 36 rey 1309 CvTw @REG_PC(FP) RO ; R9 = the word displacement 
50 aD 602 «= C0 (040A (1541 ADDLe #2,REG PC(FP) : increment the PC = | 
| ee 5 rt 1366 BRB DISP_DEF_MODE ; finish processing the specifier 
. | 
rf 1344 ; Process a Long Displacement Mode Operand Specifier | 
419 1346 LONG_DISP MODE: ; entrance 
59 50 BD 800 0410 154 MOVL @REG PC(FP) RO ; R9 = the longword displacement 
50 AD 04 CO 0414 1348 ADDL2 #4,REG PC(FP) ; increment the P | 
OA 11 0618 1549 BRB —s- DI SP_MODE : finish processing the specifier | 
at 132) : Process a Long Displacement Deferred Mode Operand Specifier | 
41A 1388 LONG_DEF | MODE : 3 entrance 
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rs 50 BD OD 1554 MOVL @REG_PC(FP) RO ; R9 = the word displacement 
OAD 04 ; 1555 ADDL2 #4, REG PC(FP) : increment the PC 
$ BRB DISP_DEF_MODE : finish processing the specifier | 
} § ; Complete Processing Displacement Mode Specifier 
1560 DISP_moDE : 3 entrance 
59 «14 ADSI 1561 tg | age ROCFP)CRI],R9 3; add the cogtoter value 
59 = 553 1 66 ADDL R3,R9 3; add the index modification 
iW A a N 3; access the operan 
0014 63 BR CCESS_OPERAND h d 
H $2 3 Complete Processing Displacement Deferred Mode Specifier 
1369 DISP_DEF_MODE: 3 entrance 
03 54 AD 18 1368 Bec #PSL_FPD,PSL(FP),1$ :; side effects are allowed - skip 
FE64 138 BRW ACTION ; end of operand processing 
59 14 AD41 12 0 1$: ADDL age ROTFP)CRIJ,R9 ; add the register value 
59 69 53 1571 ADDL R35, RI) R 3; RY = the operand location 
0000 1326 BRW ACCESS_OPERAND 3; access the operand 
137% : Perform Operand Accessing Functions 
1376 ACCESS_OPERAND: : entrance 
03 54 AD 1B 157 BBC #PSL_FPD,PSL(FP),1$ ; is the FPD bit set ? 
FESO 1578 BRW ACTION , 00P > yes = don't do anything 
03 O01 56 1579 1$: CASEL R6,#1,? : branch on the operand access 
y 1580 2$: «WORD 3$-2$ 3; 1 = operand with read access 
. 1581 «WORD 4$-2$ : 2 - operand with write access 
. 1286 - WOR 4$-2$ : 3 - operand with modify access 
. 138 .WOR - 3; 4 - operand with address access 
6A 69 28 1584 3$: MOVC R8,(R9), (R10) ; make a copy of the operand value 
SA ; 1585 ADDL2 =RB,R1 ; update the copy index 
FESA 1386 BRW ACTION_LOOP : end of operand processing 
05 3 1587 4$: CMPL R2,#5 3; register mode operand ? 
1 1588 BEQL 5$ 3 x98 - bypass 
50 6948 4 1589 MOVAB (R9)CR8),RO ; RO = address following operand 
5E 50 6A 1590 MPL RO,SP ; is operand below the frame ? 
0c 4 1591 BLEQU 5$ 3 yes - bypass 
50 58 AD 1336 MOVAB LOCAL_END(FP),RO ; RO = end of local storage 
59 50 4 159 MPL RO,RO ; does the operand follow the frame ? 
03 4 1594 BLEQU§ 5$ 3: yes - skip 
59 650 0 04 1595 OVL RO,RO ; change the operand address 
8B CS 4 4 1 38 5$: MOVL R9,(R11)+ 3; store the store address 
88 3B 3 4 159 MOVL R8,(R11)+ 3; store the store Length 
68 58 00 6€ C 04 1598 mMOVCS #0,(SP),#0,R8,(R11) ; clear the stored value 
54 AD 04 00 04 FO 0487 1599 INSV. #PSLM_2,#0.#4,PSL(FP) : describe a zero value 
01 FD AD  8F 048D 1600 CASEB FAULT-TYPE(FPS,#1,#2 ; branch on the fault type 
OE’ 04 1601 6$: WORD $-6$ : 1 - floating underflow 
06° 04 16 § - WORD $-6$ 3 ¢ - floating overflow 
00 4 160 vt Te: -6$ 33° shoot ing divide by zero 
54 AD 8 1604 7$: BISL At wi N te 3 set the N bit in the PSL 
00 $8 F 1605 BBSS #1 11), 8$ ; make the value a reserved value 
8 3 16 $ 8$: ADOL2 3; increment the store index 
FDF 16 BRW ACTION LOOP : end of operand processing 
8A 69 4 1608 9$: MOVL (RO), (R10)+ 3 copy the operand address 
F DEF : 1993 BRw ACTION_LOOP : end of operand processing 
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Process a Word Branch Displacement Operand 
entered by branching 
parameters: 
Discussion 


This routine process a are branch displacement operand 
and stores the branch address in BRANCH_ADDRESS. 


@REG_PC(FP) RO oy * “branch af 'pptecenent 
#,REG_PC (FP) : increment the 

RO,REG_PC(FP) ,BRANCH_ poole 2178 ; save the branch Location 
ACT ION=LOOP ; end of operand processing 


( See the discussion of ACTION_LOOP. 
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48D 1631 : 
D 3 HECK_ACB = Perform Post Instruction Checking for x 
rt} ! CHECK_ACB = Perf P I ion Checking for ACB 
ret 1 ¢ 3 entered by branching 
re +4 19 § 3 parameters: ( See the discussion of ACTION_LOOP. ) 
re +4 1? 8 ; Discussion 
48D 1640 : This routine performs ihe post instruction checking 
48D 1641 ; required to simulate floating arithmetic traps for the ACBx 
48D 1966 : instructions. First the corey bit is set equal to the value 
4BD 164 ; of that bit when the instruction was started. If the exception 
04BD 1644 : was an overflow, then the gr is complete. If the 
048D 1645 : exception was an underflow, then the step and Limit in the 
48D 1046 : read area are tested to see whether the jump should be taker 
4BD 164 : under the assumption that the index is zero. If the jump 
4BD 1648 5 should be taken, then the the branch destination address is 
Rees 198) ; stored into the simulated PC. 
48D 1651 CHECK_ACB : entrance 
54 AD 01 CA 04BD 1036 BICL2 #PSLM_C,PSL(FP) ; clear the C bit in the PSL 
04 FE E9 04C1 165 B.BC_ CARRY-BIT(FP),1$ : was the carry bit originally set ? 
54 AD 01 CB Q4C5 1654 BISL2 #PSLM~C,PSL(FP) : yes - make sure it's set in the PSL 
FD AD 01 94 o4c9 1655 1$ cHPe #1, FAOLT _TYPE (FP) > ftloatin under f Low ? 
: yes -s 
EDCo $1 O4cr 1889 BRW ACTION. LOOP 5 he ~ finish w 
0 C4 AD48 3 et 1658 2$ MOVAB READ _AREA(FP)CR8],RO ; RO = Location of second operand 
| a 407 1659 BSBB ACB_TEST 3 test the addend 
OA 19 0409 1660 BLSS : it’s negative - bypass 
50 58 4 0408 1661 SUBL2 R8,RO ; RO = location of first operand 
7. 33 04D 1996 8SBB ACB_TEST 3; test the Limit 
OD 14 Q4E0 166 BGTR : it's positive - bypass 
FDB6=s 331 4E 1664 BRW ACTION_LOOP 3; finish up 
50 658 ¢ 4E5 1665 3$ SUBL2 R 3; RO = location of first operand 
OD 10 0468 1666 BSBB. ss ACB_TEST : test the Limit 
03 19 Q4EA 166 BLSS 4% ; it's negative - skip 
DAC 31 4EC 1668 BRW ACTION_LOOP ; finish up 
50 AD EC AD DO O4EF 1669 4$ MOVL § BRANCHTADDRESS(FP),REG_PC(FP) ; set up the branch 
31 ara 1670 BRW ACTiON~LOOP ; finish 
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ACB_TEST = Perform Value Testing for CHECK_ACB 
entered by subroutine branching 


parameters: RQ = Location of Value to be Tested 
R7 = Data Type Code 


returns with Condition Codes = Result of Test 
Discussion 
This routine tests the value addressed by RO wepee ote 


type code is given in R7. The condition codes in the 
when the routine returns reflect the outcome of the test. 
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ACB_TES 3; entrance 
03 = =01 57 CF CASEL R7,#1,43 3 branch on the data type 
oOee 1$: WORD q3-13 : 1. lost ing 
008" «WORD $-1$ 3 ; - double floating 
OO0E* «WORD 4$-1$ : 3 - grand floating 
0012" «WORD 5$-1$% ; 4 - huge floating 
60 5 2s TSTF (RO) ; test the floating value 
9 RSB 3 return with the condition codes 
60 3$ TSTD (RO) 3; test the double floating value 
05 RSB 3 return with the condition codes 
FD 4$ TSTG (RO) ; test the grand Theat ing value 
05 8 RSB 3 return with the condition codes 
FD 5$ TSTH (RO) ; test the huge hoot ioe value 
05 8 RSB 3 return with the condition codes 
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CHECK_POLY = Perform Post Instruction Checking for POLYx | 
entered by branching | 
parameters: ( See the discussion of ACTION_LOOP. ) 
Discussion 


This routine performs the post instruction check ing that 
is necessary to simulate the traps properly for the POLYx 
instructions. According to the architecture, the overflow 
and underflow faults always cause these instructions to be 
suspended so the operands are only scanned to determine the 
instruction Length. 


For an overflow exception, the result area is set to a 
reserved value and the condition codes are set to describe 
a reserved value. If the instruction is POLYH, then the 
erquaent is unstacked. A floating overflow trap is then 
signaled. 


For an underflow Gecepy ren, things are quite a bit more 
complicated since the architecture requires that the 
instruction be run to completion before the trap is signaled. 
We perform this operation by creating our own arithmetic fault 
in a POLYx instruction and then move the state of the user 
instruction to our registers (leaving the implementation 
dependant information alone) and resume the operation of 

our instruction. Our instruction is run in a context with 

FU cleared so new underflow faults “ill not occur. If the 
instruction runs to completion, then the final state is moved 
back to the user registers and the implementation dependant 
information is cleared. If an overflow occurs then the action 
described above for an overflow fault is performed after the 
state is moved back to the user registers. If LIBSSIM_TRAP is 
or is called from the primary or secondary exception vectors, 
then an overflow trap is also possible in which case the user 
registers are put back and the trap is signaled. Two other 
exceptions are also possible, a reserved operand exception 

and an access violation exception. When either of these occur, 
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3 the user registers are put back and the fault is signaled. 
CHECK_POLY: : entrance 
0154 AD 18 0 BBS #PSL_FPD,PSL(FP),1$ ; FPD is set in the PSL - skip 
0 HALT ; it's not set - something went wrong 
01 O1 FD AD F 1$: CASEB FAULT_TYPEC(FP) 41,41 ; branch on the type of fault 
0 2° 2s: - WORD $-2$ 3 1 = floating underflow 
4‘ . WOR $-2$ : 2 - floating overflow 
57 os D1 3$: CMPL #HUGE_TYPE,R7 ; is the data type huge ? 
gs. BNEQ $ 3; no mypass 
1c AD 667C CLRQ BEG _ROCFP) ; clear the user's R2 and R3 
C AD 10 50 ADDL2 #16,REG_SP(FP) : unstack the argument 
14 AD 6098 4 i 4$: rt te ial REG_RO(FP) ; store a reserved operand 
54 AD 04 00 of FO INSV #PSCM_NZ,#0,44,PSL(FP) ; describe a reserved operand 
0210 31 BRW OVERFCOW. TRAP > generate the trap 


clear the user's R 
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Agog MH TRAP LIBSSiM TRAP = Convert Posting Faults t 6=SEP f_ frame pointer | 
56 d0 E12? § sd pout 4 aa Condition xar POLY to generate fault | 
: u 
‘ Pe d 1768 CALLS #0,W*XQT_POLY ° Siser che ancoet ten code area 
063C°CF be 48 1765 CLRL : RS = condition code for zero | 
+ ie ses et oes 1769 CASEL Raises. > branch on the data type 
03 01 57 oft 3 1788 6S: WORD 78°68 ; ri doub te Fost ing | 
6 if: 1556 “WORD Bs-68 1 2 = kuee Plestio 
Bose 5 1771 .WORD $-6$ : clear the result so far | 
4 0559 1772 7$ CLRL RO : clear the argument 
; 2} 8 1978 CLRL, = RI ; R3 = location of coefficients | 
, eh 330 1776 nip oS oT REG RS tee) RS ; insert remaining coefficients in R2 
53 20 AD 4 4 33> 1778 SUBB #1, REG_R2(FP) ,R2 : the count {is zero - bypass 
= Se 8 N Ee i BEQL «si : Rl = the argument 
4 1 f itr ROVE —REG_R1CFP) RI z Rist 
ma $60 177 BRB 10$ : clear the result so far 
86 7C = O56F 1799 8$ CLRQ RO ; clear the argument 
: b3ot 1780 CLRQ_ = R4 : 5 = location of coefficients 
es 573 1781 ADDL3 #8 ,REG_R3(FP) ,R3 ; insert remaining coefficients in R2 
Es 2 eS 30 YA SUBBS #1 ,REG_R2(FP) ,R2 3 the count {8 zero - bypass 
52. 1C AD 4 53 0570 1783 Beal ug RECEP) RG : RGCRS = the argument 
ae Oe 385 1} 3 BRB 108" : sleer ftves part of result so far 
50 7c 0385 1786 98 cLRG ; clear second part of result so far 
ay Ot 87 1787 CLRQ, = RI : RS = location of coefficients 
55 28.00 10 ct 89 1788 CUBES #ICREG RECEP) Re i Insert remgining coefficients in R4 
9 SUB 7 ° : the count is zero - y 
= 3 2 Ff ES is Beal «Ss : t the FPD bit this time 
08 15 0593 1790 #1,R8 ¢ Feques te POLY instruction 
gescrgt G0 EB Base Trg atts: Ro-traay rou | Sagce,soprone sate Po 
OF Ot ootes OSAl 1794 128 “WORD 138-128 + double float ing 
Bore: a 159% "WORD 148-198 a & Bagh mow ke 
ert aN, 1797 WOR 15$-12$ ; store the result so and argument 
00g a9 1798 13$: MOvVa RO,REG_ROCFP) ; store the remaining coefficients 
ic AD 32 90 SAD 1799 none Rg REGIRSCEP) ; store location of coefficients 
MOVL * : ~# 
0 AD 53 DO 0581 1800 16$ : bypa tar 
; $5 fp 8B? 180 168: ROVO RO, REG_ROCFP) i Shore tae sonvtnine confttctents 
14 AD 30 = 7D 38 1 § MOVB Rg -REG_RG CEP) ; store location of coefficients | 
6 AD 38 Bo Sar 1806 movG Ra REGIRG CEP) : store the argument | 
ADH fp C7 180g BRB 166 store first part of result so far 
14 AD 50 7 ce 07 ee mova RO REGCROCEPD ; store second Stning costticiontay” 
3 3 : he remain 
1C AD 32 67D O5CD | R4,REG_R4 (FP) f Store F f coefficients 
$5 oS tel ii nowt Reegeaceviock py Ae 
: CMPL = . : baa ski | 
58 D1 0509 1811 168 178 ee. s violation fault | 
ee Be iran gy | Revue een trig 
58 00000454 of D1 oe) ' i va BNEO 183 a. : ted reserved operand fault 
140 sf SEA : 1 PRPL PSS8 FLTOVE SRS > was Shore a overflow trap ? 
58 0000048 ef } ef? ' 18 one BNEG 283 rs ; no - skip 
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54 AD 04 99 Cc =6FO F6 1819 INSV #PSLM_NZ,#0,44,PSL(FP) ; describe a reserved operand 
4 Di re : cMPL #HUGE-TYPE ,R7 : is the data type huge ? 
i no-s 
4C AD 0 cb 601 1 § ADDL2 #16,REG_SP(FP) 3 unstack Che argument 
0146 605 1823 19$:  BRW OVERFLO@. TRAP : process the overflow trap 
: L #SSS_FLTOVF FR ; was there a overflow fault ? 
58 00000484 f 9} ? ; ! ¢ 20$ cnr $_FLTOVEF 8 Ser f f 
i no-s 
FF 5 if 611 1 § BRwW $ 3 process Che overflow fault 
54 AD o 0 FO 0614 1 21$: INSV R9,#0,44,PSL(FP) 3 set the condition codes 
3 1 7 cr 6iA 1 8 CASEL R7,#1,83 ; branch on the data type 
008' O61E 1829 228 WORD $-25$ :1- floating 
4 ; ? 1 9 ~ WORD $-22$ 3 ¢ - double floating 
. 1 » WORD $-22$ : 3 = grand floating 
0011° 0624 1 § . WORD 4$-22$ : 4 -_huge floating 
1C AD 618 )«€©08_)~=—00—t—iC«dFDs«O66 SC 23$: INSV #0,48 ,#24,REG_R2(FP) 3; perform coneie ne clear 
0111 31 Q62C 1834 BRW UNDERF LOW. TRAP 3; process the floa ing under f Low 
24 AD 18 08 00 re 62F 1835 24$: INSV #0 ,#8 #24, REG_R4(FP) ; perform remaining clear 
4C AD 10 ¢ 635 1 6 ADDL2 #16,REG_SPCFPY t unstack the argument 
0104 1 be : \3 BRwW UNDERFLOW_TRAP 3; process the floating under fiow 
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XQT_POLY = Execute a POLYx Instruction 
parameter: R8 = Set FPD in the PSL Indicator 
returns with R8 = Way Instruction Ended 
Discussion 


| 
| 
This instruction executes one of POLYx instructions 
chosen to be the same as the instruction which the converter 
is processing. If the parameter R8 is zero, then the FPD bit 
in the PSL is clear when the instruction is entered and so 
an overflow fault occurs because of the choice of the argument 
and coefficients. The routine returns with all of the 
registers for the fault intact. If R8 is one, then the FPD bit 
is set in the PSL for the instruction so the instruction 
resumes starting from the state in the registers. If any 
exception occurs, then R8 contains the code for the exception. 
If an access violation occurs, then the condition handler 
saves additional information. 
| 
| 
i 
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XQT_POLY: entrance 
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0000 «WORD 0 3; entry mask 
6D O6E1'CF 9E MOVAB W*POLY_HANDLER, (FP) 3 set up the condition handler 
59 =e MOVPSL 3; RO = the PSL 
00 59 26 E5 BBCC #PSL_FU,R9,1$ : clear the FU bit in the PSL 
04 58 £9 1$ BLBC g 3; don't set FPD in the PSL 
0059 1B €2 BBSS  - #PSL FPD.R9.28 : set FPD in the PSL 
SS tt WF & $ CASEL R7,#T,# ; branch on the data type 
0008' $ «WORD 4$-3$ :1- Sloat ing 
OOOF * «WORD 5$-3$ 3 § - double floating 
0016° «WORD $-3$ :; 3 - grand floating 
001D° . WORD $-3$ 3; 4 = huge floating 
59 oD 4$: USHL R9 ; push the PSL 
87°AF OF PUSHAB 6*10$ 3; push the POLYF instruction location 
a. = 9$ 3; bypass 
9 DD 5$: USHL R9 3 push the PSL 
SF'AF 9F PUSHAB 6“11$ 3 push the POLYD instruction location 
1A soi RB 9 ; bypass 
59 ODD 6$: PUSHL 3; push the PSL 
O7'AF = oO9 PUSHAB B*12$ 3; push the POLYG instruction location 
11 BRB 9 3 x ass 
0B 58 =«EY 7$: BLBC R8,8$ 3; F 5 not requested in PSL - bypass 
SA 4C A6 34 6 4 MOVL REG _SP(R6) R10 ; R10 = location of stacked argument 
08 D 06 5 MOVQ B(RTO) ,-(SP) ; push the last part of the argument 
7€ 7D 067 (R10) ,-(SP) ; push the first part of the argument 
DD 067 8$: PUSHL R 3; push the PSL 
AO'AF 9F 06 § PUSHAB B*13$ 3; push the POLYH instruction Location 
8 D4 06 9$: CLRL R8 ; clear the instruction outcome 
9¢ 6 90 REI 3; execute the POLYx instruction 
AO"AF 01 08 6 91 108: POLYF #1.0,#1,B°FLOAT_TABLE ; execute the POLYF instruction 
59 Oe 3 mays R9 3 Ry resulting PSL value 
3 return 
BI'AF 01 98 5 06 94 11$: POLYD #1.0,#1,B°DOUBLE_TABLE ; execute the POLYD instruction 
C 06 95 MOVPSL R9 ; RO = resulting PSL value 
4 069 96 RET 3 return 
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BI'AF 01 QB SSED 0697 1897 128: POLYG —#1.0,41,B°GRAND.TABLE ; execute the POLYG instruction | 
f 3p : 38 Opyrst R9 : eae resulting PSL value 
; return 
C1'AF ~° (01 98 75FD 0 1900 138: POLYH #1.0,#1,B*HUGE_TABLE 3 execute the POLYH instruction | 
C A6é 1901 MOVPSL R9 ; RY = resulting PSL value 
- 13 § RET . 3 return 
6A9 1904 : Coefficients for POLYF Instruction 
6A9 1905 
6A9 1906 FLOAT _TABLE: 
FFFFZ7FFF 06A9 190 .LONG *X FFFFTFFF : largest floating value 
FFFF7FFF GAD 1308 - LONG “x FREFCFFF ; largest floating value | 
peat 13i9 ; Coefficients for POLYD and POLYG Instructions 
beRt 34 DOUBLE_TABLE: 
0681 1913 GRAND_TABLE: 
FFFF7FFF OQ681 1914 -LONG “X FFFF7FFF ; largest double or grand value 
FFFFFFFF 0685 1915 ~LONG “x FRFFFFFF 
FFFF7FFF 0689 1916 SLONG “KX FFFF7FFF »  ; largest double or grand vaiue 
FFFFFFFF O68D 1917 - LONG “X FFFFFFFF 
06C1 1918 .f " 
06C1 1919 3 Coefficients for POLYH Instruction 
06C1 1926 : 
06C1 1921-HUGE_TABLE: 
FFFF7FFF Q6C1 19 § “vs gLONG “X FRFF7FFF ; largest huge floating value 
FFFFFFFF O06CS 192 ONG. “KX FRFFFFFF 
FFFFFFFF O6C9 1924 ~ LONG “xX FEFFFFFF 
FFFFFFFF O6CD 1925 » LONG “xX FFFFFFFE 
FFFF7FFF O6D1 1926 «LONG “X FFFF7FFF eat ; largest huge floating value 
FFFFFFFF O6D5 13st ~ LONG “X FREFFFFF j 
FFFFFFFF 0609 1928 ~LCNG “x FREFFFFF 
FFFFFFFF O6DD 1362 FRFFFFFFF 
06E1 1930 


ating tr © V04-00 Page 43 L18 
| 


r 
RCJLIBSIMTRA.MAR; 1 (18) 


LIBSS1M_TRAP 


'o 


a os ta 9 9:18:20 AX/VMS Mac 
Convert Floating Faults t 6=SEP=1984 11:10:54 (CLIBRTL.S 
POLY_HANDLER = Condition Handler for POLYx Execution 
parameters: P1 = Signal Array Location 
P2 = Mechanism Array Location 


! 


returns with RO = Condition Response 
Discussion 
This routine is the condition handler for XQT_POLY which 


executes one of the POLYx instructions. When exceptions (other 
than opcode reserved to DEC which is resignaled) the type of 
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Late f 
M_TRAP 
6—1 19 
6—1 19 
6—1 19 
6E1 19 
6—€1 19 
6—1 19 
6E1 19 
6—1 19 
6E1 194 
6E1 194 
6E1 194 
el 18 
06E1 exception is saved in R8 and the XQT_POLY frame is unwound 
06E1 194 with all of the registers intact. If the exception is an 
06E1 1947 access violation, then the reason mask and the accessed 
Q06E1 1948 address are saved in designated areas in the frame. If the 
06E1 1949 condition does not originate within the routine, ther, it is 
06E1 1950 3 resignaled. 
06E1 1951 : 
06E1 1926 POLY_HANDLER: 3 entrance 
0000 Q6€1 195 -WORD 0 : entry mask 
50 04 AC 7D Q6E3 1954 Ova 4(AP) ,RO ; RO and R1 = locations of arrays 
08 Al DS Q6E7 1955 TSTL 8(R1) 3; condition from establisher frame ? 
25 12 Q6EA 1956 BNEQ 2s 3; no - bypass 
58 of AO oO O6EC 1957 MOVL 4(RO) ,R8 ; RB = condition code 
58 0000043C BF D1 O06FO 1958 CMPL  #SS$_OPCDEC,R8 > opcode reserved to DEC ? 
18 11. O6F7 1959 BRB 2$ : yes - it's for the Emulator 
58 OC D1 O6F9 1960 CMPL #SS$_ACCVIO,R8 3; access violation ? 
OC 12 O6FC 1961 BNEQ 1$ i no - bypass 
FB AG O08 AD 90 pore 1962 MOVB 8(RO),ACCVIO_REASON(R6) ; save the reason mask 
EB AG OC AO 00 0703 1963 MOVL 12(RO) ,ACCVIO_ADDRESS(R65 ; save the accessed address ; 
E 7C 0708 1964 CLRQ -(SP) ; default PC and level for unwind 
OOO00000'GF O02 FB OQ70A 1965 1$: CALLS #2,G*SYSSUNWIND ; unwind the frame for XQT_POLY 
50 0918 8F 32 0711 1966 2$: CVTWL 4 #SS$_RESIGNAL,RO : specify condition not handled 
0 OF? 1968 e | 
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at 1394 Condition Signaling Routi 
; ondition naling Routines 
717 1326 Py Saree Sen sees ae Se ae oe ce me me ee 
717 «197 : 
717 «+1974 3 General Discussion 
717 «1975 ; 
717 1308 3 The a ta routines signal the various fyees of 
717 «+197 ; conditions that that the input fault types can be converted 
717 «+1978 ; into. This is done by pushing an abbreviated form of the 
0717 1979 3 signal vector (with the PC, PSL pair missing) and branching 
0717 1980 : to SIGNAL_START. If the signaled condition is a trap then 
Bele 1981 : the FPD bit is cleared in the PSL. If the signaled condition 
717 «19 ¢ 3 is a fault, then the TP bit is cleared in the PSL and the 
0717 135 3 simulated PC is changed to the instruction location. For 
0717 1984 ; access violations, the reason mask and the accessed address 
0717 1985 ; are taken from the designated cells in the frame. 
0717 1386 ; 
0717 135 : : 
0717 1988 3 Signal an Access Violation 
0717 1989 : 
0717 1990 ACCESS_FAULT: 3 entrance 
E8 AD DD 0717 1991 PUSHL ACCVIO_ADDRESS(FP) 3; push the accessed address 
FB AD DD O71A 1938 PUSHL ACCVIO_REASON(FP) 3; push the reason mask 
OC DD O71D 199 PUSHL g358_ACCVIO 3 push the condition code 
03 DD O71F 1994 PUSHL @# s we the number of parameters 
50 AD FO AD 00 bes. 1995 MOVL INST_ADDRESS(FP) ,REG_PC(FP) ; restore the instruction address 
00 54 AD 1E €5 0726 1996 BBCC #PSL TP, PSL(FP),1$ ; clear the trace pending bit 
oe b7¢8 444 1$: BRB SIGNAL_START : signal the condition 
972D 1999 3 Signal a Reserved Operand Fault 
072D 2000 : 
072D 2001 OPERAND_FAULT: ; entrance 
7E 0454 8F 32 0720 4 f CVTWL #SS$_ROPRAND,-(SP) 3 push the condition code 
01 DD 0732 200 PUSHL #1 : push the number of parameters 
50 AD FO AD 00 0734 2004 MOVL INST_ADDRESS(FP) ,REG_PC(FP) ; restore the instruction address 
00 54 AD «1E «6©E5 «(0739 «2005 BBCC #PSL-TP,PSL(FP),1$ ; clear the trace pending bit 
eo th B06 1$: BRB SIGNAL_START ; signal the condition 
0740 2008 3 Signal a Floating Underflow Trap 
0740 2009 . 
0740 2010 UNDERFLOW TRAP: 3 entrance 
00 54 AD 18 3 Bree 011 BCC #PSL_FPD,PSL(FP),1$ ; clear FPD in the PSL 
7E 049C BF 32 074 Or 1$: CVTWL «6 #SSSTFLTUND,-(SP5 : push the condition code 
01 DD OQ74A 4 PUSHL # ; push the number of parameters 
| eee pee ois BRB SIGNAL _START 3; signal the condition 
Bote 818 3 Signal a Floating Overflow Trap 
1543 018 OVERFLOW TRAP 3 entrance 
00 54 AD 18 §3 74 19 BCC #PSL_FPD,PSL(FP),18 ; clear FPD in the PSL 
7E 048C BF 32 079 0 1$: CVTWL «= #SSSTFLTOVE ,-(SP5 > push the condition code 
01 OD Q7 1 PUSHL @# ; push the number of parameters 
09.= «11 Pen § BRB SIGNAL_START 3 Signal the condition 
Pee : : Signal a Floating/Decimal Divide by Zero Trap 
75C 2026 DIVIDE_TRAP: 3 entrance 
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7E 04694 BF 32 O75 7 CVTWL SSS _FL TOI. =(SP) 3; push the condition code 
1 OD o 8 PUSHL @# 3; push the number of parameters 
Bee 4 3 BEB SIGNAL_START ; signal the condition 
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SIGNAL_START = Build the Parameter Blocks for SIGNAL 
entered by branching 


parameters: (SP) = Truncated Signal Array Size (M) 
4(SP) = Condition Code 
8(SP) = First Signal Argument 


4*<M-1>(SP) = Last Signal Argument 
Discussion 


This routine builds the signal and mechanism arrays 
for a condition generates by the converter. It is entered 
with the signal array for the condition except for the 
PC and PSL pair pushed onto the converter's stack (with the 
pushed array Length servesgonesnes shortened). The signai 
array, mechanism array, and the handler parameter bloc , 
are then constructed on the user's emulated stack. The routine 
then removes the converter frame from the stack and enters 
the signal dispatching loop at SIGNAL. 


Notes: 1. The precise format of the information pushed onto 
the user's stack is given in the description of 
SIGNAL below. 


2. The method of getting out of the converter consists 
of edjysting the alignment bits and the parameter 
count for the converter's frame so that the stack 
ir upon return is just where we want it to be. 

efore returning, the return PC in the frame is 
changed to the place we want to branch to. 


3 entrance 

REG_SP(FP) ,R6 ; R6 = user's SP 
REG _PC(FP) ,-(R6) ; push the user's PC and PSL 
(SPT+,R7 ; R7 = number of signal parameters 
g-R7 RO ; R8& = number of bytes to move 
RB,R6 ; extend the user stack 
RB, (SP), (R6) 3 move the parameters 
oe Ae =(R6) 3; push the signal array Length 

-(R6 ; push code for SIGNAL (vs. STOP) 
REG_RO(FP) ,~(R6) : push the user's RO and Ri 
#3,=(R6) ; push -3 (depth number) 
REG_FP(FP) ,-(R6) : push the user's FP 
#4,=(R6) ; push the mechanism array length 
R6,-(R6) 3 push the mechanism array location 
28(R6) ,-(R6) 3 push the signal array location 
#2,-(RO) 3 push the handler parameter count 
FRAME _END+4 (FP) ,RO ; RO = end of call frame + 4 
RO,R6 ; R6 = distance to user's SP 
REG_AP(FP),SAVE_AP(FP) ; put AP and FP back into place 
BO STGNAL . SAVE _PC CFP) : store the return PC 
#0,#2,R6,R1 ; R1 = stack alignment bits 
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R1,#MASK_ALIGN,#Z,SAVE eo 5 


R1.RO 
#-2,R6,-4(RO) ; store 
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SIGNAL = Signal the Condition 
entered by branching 

parameters: ( Described in Note 3 ) 
Discussion 


Following is a description of the information which 
is assumed to be pushed onto the stack when the 
rout ine SIGNAL is entered. The values are all 
Longwords. 


| 
| 
Handler Parameter Block: 
(SP) 2 (handler parameter block Length) 
4(SP) signal array location 
8(SP) mechanism array location 
Mechanism Array: 
12(SP) 4 (mechanism orrey Length) 
16(SP) i ® s FP (establ nw 44 frame) 
0(SP) sesteyt tener depth) 
4(S$P) user’ 5 
8(SP) user's Rt 
Information Not Part of any Array: 
32(SP) 1 (code for SIGNAL) 
Signal Array: 
36(SP) signal ervey lenges M 
° 
| 
| 


6 
40(SP) conditi 
44(SP) first signal argument 


<4eM>+ ais} last si nal argument 
<42M>+52 (SP) user’ s PC 
<4eM>+36(SP) user's PSL 
The user's stack pointer should coincide with the 


address chen 140( P). 


Jump to the VMS routine which looks for handlers to call. 
Execution will not return to us. 


SIGNAL: 3 entrance 


00000000'GF 17 JMP G*SYSSSRCHANDLER 
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C 1 8 * 

re 1 : ca # 

766 21 3 * End of VAX/VMS Common RTL File LIBSIMTRA.MAR * 

706 2154 : * * 

7C6 21 : a * 

766 21 : * * 

706 21 

706 21 
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- Simulate 


PATTERN SUBH 


POLY 
POL 


_MODE 
DEF _MODE 


-o 
STER 
REG_AP 


CHECK 
Y~GRAND 
POL Y~ HANDLER 
Y_ HUGE 


READ WORD 


REG! 
REG 


LIBSSIM_TRAP 


tect manen mann aen a} 


! Psect synopsis ! 
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PSECT name Allocation PSECT No. Attributes 
» 8 , 0000000 ( $- 89 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
LIBSCODE 00007C 1990.) O01 ¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
SABSS 0000000 < 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
Pesce acer eee nea en a renee oe 
: Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 34 00:00: 8-93 08:80 :8 4 
zonnene processing 108 00:00:00.30 00:00:03. 
289 Bb ST) be Be 9 
Syabol table sort 9 00:00:00. 00:00: $- 
Pass 2 38 00:00:02.8 00:00:12.4 
Symbol table output 19 00:00:00.1 06:00:00.9 
Psect synopsis output 1 00:00:00.0 00:00:00.02 
Cross-reference output 0 00:00:00.0 Se Se ee 
Assembler run totals 835 00:00:10.1 00:00:49.55 


The working set Limit was 1950 pages. 

56568 bytes (111 pages) of virtual memory were used to buffer the intermediate code 

There were 50 pages of symbol table space a cerete to hold 724 non-local and 98 Local symbols. 
2158 source Lines were read in Pass 1, producing 20 object records in Pass 2. 

9 pages of virtual memory were used to define 8 macros. 
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‘ ; Macro Library statistics ! 


eee oat 


Macro Library name Macros defined 
~$255SDUAZ8: (SYSLIBJSTARLET.MLB; 2 ee tee 
582 GETS were required to define 5 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBSIMTRA/OBJ=OBJ$:LIBSIMTRA MSRC$:LIBSIMTRA/UPDATE=(ENH$:LIBSIMTRA) 
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